home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 4 / 64er_Magazin_Sonderheft_04_86-04_1986_Markt__Technik_de_Disk_1_of_2_Side_A.d64 / listing 21.d (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  530b  |  24 lines
  1. 10 open 15,8,15 :rem floppykanal oeffnen
  2. 15 print#15,"i0"
  3. 20 open 1,8,3,"test": rem relative datei oeffnen
  4. 100 print"lesen, schreiben, ende ?"
  5. 110 get i$:ifi$<>"l"andi$<>"s"and i$<>"e"then 110
  6. 120 if i$="l" then 1000
  7. 130 if i$="s" then 2000
  8. 140 ifi$="e" then 3000
  9. 1000 rem lesen------------
  10. 1010 input "satznummer ";sa
  11. 1020 gosub 9000: rem positionieren
  12. 1030 gosub 9100: rem lesen
  13. 1040 print a$  : rem anzeigen
  14. 1050 goto 100
  15. 2000 rem schreiben--------
  16. 2010 input "satznummer ";sa
  17. 2020 input a$ :rem eingabesatz
  18. 2030 gosub 9000:rem positionieren
  19. 2040 gosub 9200:rem schreiben
  20. 2050 goto 100
  21. 3000 rem ende-------------
  22. 3010 close1:close15
  23. 3020 end
  24.